Marcin MTG Data
---
title: "MTG Collection"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: fill
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(knitr)
library(DT)
library(rpivotTable)
library(ggplot2)
library(openintro)
library(highcharter)
library(dplyr)
library(tidyverse)
library(plotly)
library(maps)
```
```{r}
data <- read.csv("~/Documents/GitHub/mtg/data.csv")
```
```{r}
dat <- iso3166
editionCount <- data %>% group_by(Edition) %>%
dplyr::summarize(count = n()) %>%
arrange(desc(count))
```
Home
==================
Row
------------------
### Data Refreshed July 2021
```{r}
valueBox(paste('Marcin MTG Data'),
color = '#063970')
```
Full Rating Table
========================
```{r}
dataSummary <- data %>% select('Name','Edition','Count')
datatable(dataSummary,
caption = 'Full Ratings Table',
rownames = T,
filter = 'top',
options= list(pageLength = 25))
```